home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1987 March / 1987-03.d64 / color craft.boot (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  547b  |  16 lines
  1. 10 poke53280,3:poke53281,3:poke646,6:printchr$(147)
  2. 20 print"[147]a sample picture is included on this"
  3. 25 print"disk. to view it, choose the load (l)"
  4. 30 print"option after running color craft."
  5. 35 print"then, when prompted for a filename,"
  6. 40 print"type flyingfish and press return."
  7. 70 f$="color craft"
  8. 80 print"    press any key to run color craft[146]"
  9. 90 poke198,0:wait198,1:getdh$
  10. 100 poke53280,14:poke53281,14
  11. 105 print"[147]":printspc(9)"loading color craft"
  12. 110 print"[154]load";chr$(34);f$;chr$(34);",8"
  13. 120 a$=chr$(13)+"run[144]"+chr$(13)
  14. 130 fori=1tolen(a$):poke630+i,asc(mid$(a$,i)):next:poke198,i-1
  15. 140 new
  16.